home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / TREX1.ZIP / events.ini < prev    next >
INI File  |  1997-04-12  |  4KB  |  117 lines
  1. [script]
  2. n0=#horsetrak off
  3. n1=on 1:TEXT:!horses:?:{
  4. n2=  /msg $nick 4~~-=Tha Horse Trak=-~~
  5. n3=  /msg $nick 4Horse #1: %horse1
  6. n4=  /msg $nick 4Horse #2: %horse2
  7. n5=  /msg $nick 4Horse #3: %horse3
  8. n6=  /msg $nick 4~~-=⌐1997 Jvolmax=-~~
  9. n7=}
  10. n8=on 1:TEXT:!choose*:?:{ 
  11. n9=  if ($parm2 = %horse1) goto ok 
  12. n10=  elseif ($parm2 = %horse2) goto ok
  13. n11=  elseif ($parm2 = %horse3) goto ok
  14. n12=  elseif ($parm2 != %horse1) msg $nick Try choosing a horse that is in the races! | halt
  15. n13=  elseif ($parm2 != %horse2) msg $nick Try choosing a horse that is in the races! | halt
  16. n14=  elseif ($parm2 != %horse3) msg $nick Try choosing a horse that is in the races! | halt
  17. n15=  :ok
  18. n16=  set %chosenhorse $parm2 
  19. n17=  set %winnerhorse {
  20. n18=    set %winner horse $+ $rand(1,3)
  21. n19=    if (%winner = horse1) { set %winnerhorse %horse1 }
  22. n20=    if (%winner = horse2) { set %winnerhorse %horse2 }
  23. n21=    if (%winner = horse3) { set %winnerhorse %horse3 }
  24. n22=  } 
  25. n23=  if (%chosenhorse = %winnerhorse) msg $nick You chose4 %chosenhorse $+  and4 %winnerhorse $+  has won the race. So that means, YOU WON!
  26. n24=  if (%chosenhorse != %winnerhorse) msg $nick You chose4 %chosenhorse $+  and4 %winnerhorse $+  has won. So that means, YOU LOST!
  27. n25=  halt
  28. n26=}
  29. n27=#horsetrak end
  30. n28=#jukebox off
  31. n29=on 1:TEXT:!songlist:#:/play $nick Songlist.txt 500
  32. n30=on 1:TEXT:!getsong*:#:/set %songget $parm2* | /dcc send $nick $mircdir $+ Midi/ $+ %songget $+ .mid
  33. n31=on 1:TEXT:!playsong*:#:/set %songname $parm2* | /sound $chan $mircdir $+ Midi/ $+ %songname $+ .mid | /msg $chan 5 $+ $nick $+  has requested that I play 5 $+ %songname $+ , so here it is. To get the sound, type 5!getsong %songname $+  .
  34. n32=#jukebox end
  35. n33=#numbergame on
  36. n34=on 1:TEXT:!number*:#:/set %guessnumber $parm2 | if (%guessnumber > %number) notice $nick You have guessed the wrong number. Your guess was too high. | if (%guessnumber < %number) notice $nick You have guessed the wrong number. Your guess was too low. | if (%guessnumber = %number) rightnumber
  37. n35=#numbergame end
  38. n36=#lame-o-meter off
  39. n37=on 1:TEXT:!lame:#:lame
  40. n38=#lame-o-meter end
  41. n39=#email off
  42. n40=on 1:DNS:set %smtp $longip($iaddress)
  43. n41=on 1:CHATOPEN: {
  44. n42=  msg = $+ $nick mail from: %emailaddress
  45. n43=  msg = $+ $nick rcpt to: %sendto
  46. n44=  msg = $+ $nick data
  47. n45=  msg = $+ $nick %message
  48. n46=  msg = $+ $nick -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  49. n47=  msg = $+ $nick ~~-=This message was sent with the email feature in T-Rex=-~~
  50. n48=  msg = $+ $nick ~~-=⌐1997 Jvolmax=-~~
  51. n49=  msg = $+ $nick .
  52. n50=  close -c
  53. n51=  disable #email
  54. n52=  halt
  55. n53=}
  56. n54=#email end
  57. n55=#logging off
  58. n56=on 1:TEXT:*:?: {
  59. n57=  write $mircdir $+ messages\ $+ $nick $+ .txt $fulldate $+ : $nick $+ : $parm2*
  60. n58=  write $mircdir $+ messages\ $+ $nick $+ .txt -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  61. n59=  .notice $nick Your message has been received.
  62. n60=}
  63. n61=#logging end
  64. n62=#partyline off
  65. n63=on 1:TEXT:%partycommand:#:/dcc chat $nick
  66. n64=on 1:CHAT:*: {
  67. n65=  set %ppl 1
  68. n66=  :partystart
  69. n67=  if ($chat(%ppl) = $nick) goto partyequal
  70. n68=  if (%ppl > $chat(0)) goto partyend
  71. n69=  if ($chat(%ppl) != $chat) goto partygo
  72. n70=  :partyequal
  73. n71=  inc %ppl 1
  74. n72=  goto partystart
  75. n73=  :partygo
  76. n74=  .msg = $+ $chat(%ppl) < $+ $nick $+ > $parm1*
  77. n75=  inc %ppl 1
  78. n76=  goto partystart
  79. n77=  :partyend
  80. n78=  halt
  81. n79=}
  82. n80=on 1:CHATOPEN: {
  83. n81=  set %ppl 1
  84. n82=  set %joinnick $nick
  85. n83=  :partystart
  86. n84=  if ($chat(%ppl) = $nick) goto partyequal
  87. n85=  if (%ppl > $chat(0)) goto partyend
  88. n86=  if ($chat(%ppl) != $chat) goto partygo
  89. n87=  :partyequal
  90. n88=  inc %ppl 1
  91. n89=  goto partystart
  92. n90=  :partygo
  93. n91=  .msg = $+ $chat(%ppl) %joinnick has joined the Party-Line!
  94. n92=  inc %ppl 1
  95. n93=  goto partystart
  96. n94=  :partyend
  97. n95=  halt
  98. n96=}
  99. n97=on 1:CHATCLOSE: {
  100. n98=  set %ppl 1
  101. n99=  set %quitnick $nick
  102. n100=  :partystart
  103. n101=  if ($chat(%ppl) = $nick) goto partyequal
  104. n102=  if (%ppl > $chat(0)) goto partyend
  105. n103=  if ($chat(%ppl) != $chat) goto partygo
  106. n104=  :partyequal
  107. n105=  inc %ppl 1
  108. n106=  goto partystart
  109. n107=  :partygo
  110. n108=  .msg = $+ $chat(%ppl) %quitnick has quit the Party-Line!
  111. n109=  inc %ppl 1
  112. n110=  goto partystart
  113. n111=  :partyend
  114. n112=  halt
  115. n113=}
  116. n114=#partyline end
  117.